library(shiny)
## Define UI for app

shinyUI(fluidPage(
  titlePanel(
    h4('Demostration f the renderPlot() -A Histogram with iris dataset', align = 'center')
  ),
  sidebarPanel(
    
    selectInput(inputId = "var",
                label = "1.Select the quantitative Variable",
                choices = c("Sepal.Length" = 1,
                            "Sepal.Wideth" = 2,
                            "Petal.Length" = 3,
                            "Petal.Width" = 4),
                selected = 3),
    sliderInput(inputId = "bins",
                label = "2.select the number of histogram BINs by using the slider below",
                min = 5,
                max = 25,
                value = 15),
    radioButtons(inputId = "color",
                 label = '3. Select the color of histogram',
                 choices = c('Green',"Red","Blue"),
                 selected = "Green"
                 )
  ),
  mainPanel(
    textOutput("text1"),
    textOutput("text2"),
    textOutput("text3"),
    plotOutput("myhist")
  )
))









